home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / modulesmc.lha / ModulesMC1 / randomize.e < prev    next >
Encoding:
Text File  |  1994-11-03  |  335 b   |  13 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. /* Initializes both Rnd(n) and RndQ(seed)  */
  5. /* Returns randomized seed  */
  6. PROC randomize()
  7. DEF i, currentsecs, currentmicros, seed
  8.   CurrentTime({currentsecs},{currentmicros})
  9.   seed:=-currentmicros
  10.   FOR i:=0 TO currentsecs AND $FF DO seed:=RndQ(seed)
  11.   IF seed<0 THEN Rnd(seed) ELSE Rnd(-seed)
  12. ENDPROC seed
  13.